home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / packet / terminal / top_152 / src152.exe / rar / TOPOVR1.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-16  |  4KB  |  117 lines
  1. {┌─────────────────────────────────────────────────────────────────────────┐}
  2. {│                                                                         │}
  3. {│                              T. O. P.                                   │}
  4. {│                                                                         │}
  5. {│                        (T)he  (O)ther  (P)acket                         │}
  6. {│                                                                         │}
  7. {│ Unit:    T O P O V R 1 . P A S                                          │}
  8. {│                                                                         │}
  9. {│                                                                         │}
  10. {│ Programmcode, der aus dem Overlayteil nachgeladen wird                  │}
  11. {└─────────────────────────────────────────────────────────────────────────┘}
  12.  
  13.  
  14. UNIT TOPOVR1;
  15. {$F+,O+}
  16.  
  17. Interface
  18.  
  19. Uses CRT,
  20.      DOS,
  21.  
  22.      TOPEMS,
  23.      TOPXMS,
  24.      TOPDEFS;
  25.  
  26.  
  27. (* Proceduren und Funtionen der TOPFILE.PAS *)
  28. Function  Compute_CRC(CRC : Integer; Zeile : String) : Integer;
  29. Procedure FileInfo(Kanal,Art : Byte; Groesse,Count,tGroesse,tCount : LongInt);
  30. Function  Zeit_to_Sek(Zeile : Str8) : LongInt;
  31. Function  Time_Differenz(Start,Stop : Str8) : Str8;
  32. Function  FileBaud(ZeitStr,AnzStr : Str9) : Str9;
  33. Procedure Kill_Save_File(Kanal : Byte);
  34. Procedure Close_SaveFiles;
  35. Procedure Open_SaveFiles;
  36. Procedure Neu_Name(Kanal,Art : Byte; Call : str9; Name : str19);
  37. Function  GetName(Kanal : Byte; Call : Str9; var FlagByte : Byte) : Str40;
  38. Function  Platzhalter(Kanal : Byte; Zeile : String) : String;
  39. Function  MakeBinStr(Kanal : Byte; Zeile : Str80) : Str80;
  40. Function  SaveNameCheck(Art : Byte; Zeile : Str80) : Boolean;
  41. Function  MakePathName(Kanal : Byte; Var DFlag : Boolean; Zeile : Str80) : Str80;
  42. Function  FNameOK(Zeile : Str80) : Boolean;
  43. Function  PfadOk(Art : Byte; Zeile : Str80) : Boolean;
  44. Function  MkSub(Pfad : Str80) : Boolean;
  45. Procedure KillFile(Zeile : Str80);
  46. Procedure Ini_RemPath;
  47. Procedure File_Bearbeiten(Kanal : Byte; Zeile : Str80);
  48.  
  49.  
  50. (* Proceduren und Funtionen der TOPFRX.PAS *)
  51. Procedure FileRxMenu(Kanal : Byte);
  52. Procedure Datei_Empfangen(Kanal : Byte; Art : Byte);
  53. Function  OpenTextFile(Kanal : Byte) : Boolean;
  54. Procedure OpenBinFile(Kanal : Byte; Zeile : Str80);
  55. Procedure CloseRxFile(Kanal,Art : Byte);
  56. Procedure SaveFile(Kanal : Byte);
  57. Function  SvFRxCheck(Kanal : Byte; Zeile : Str60; Name : Str12) : Str60;
  58.  
  59.  
  60. (* Proceduren und Funtionen der TOPFTX.PAS *)
  61. Procedure FileTxMenu(Kanal : Byte);
  62. Procedure Datei_Senden(Kanal : Byte; Art : Byte);
  63. Procedure FileSendVon(Kanal : Byte; Zeile : Str40);
  64. Procedure Send_File(Kanal : Byte; OFlag : Boolean);
  65. Procedure SF_Text(Kanal : Byte; Zeile : Str80);
  66. Procedure TXT_Senden(Kanal,Art,FNr : Byte);
  67. Procedure BIN_TX_File_Sofort(Kanal : Byte; Zeile : Str80);
  68. Procedure TXT_TX_File_Sofort(Kanal : Byte; Zeile : Str80);
  69. Procedure FertigSenden(Kanal : Byte);
  70.  
  71.  
  72. (* Proceduren und Funtionen der TOP7PL.PAS *)
  73. Procedure Open_Close_7Plus(Kanal : Byte; Zeile : Str80);
  74. Procedure Close_7Plus(Kanal : Byte);
  75.  
  76.  
  77. (* Proceduren und Funtionen der TOPBUF.PAS *)
  78. Procedure OpenBufferFile(Kanal : Byte);
  79. Procedure EraseBufferFile(Kanal : Byte);
  80. Procedure SendTestBuffer(Kanal : Byte);
  81.  
  82.  
  83. (* Proceduren und Funtionen der TOPDIR.PAS *)
  84. Procedure GetDirFiles(Zeile : Str80; ax : Byte);
  85. Procedure DirZeig(Var Zeile : Str80; var Ch : char; QRet : Boolean);
  86. Procedure RemoteDir(Kanal : Byte; Zeile : Str80);
  87. Procedure SortDir;
  88. Procedure DelAll(Pfad : Str80; Yp : Byte);
  89. Function  Get7PlFNr(Zeile : Str80) : Str20;
  90.  
  91. (* Proceduren und Funtionen der TOPCOPY.PAS *)
  92. Procedure FileKopieren(Var Zeile : String);
  93. Procedure Delete_Datei(Var Zeile : Str80);
  94.  
  95.  
  96. Implementation
  97.  
  98. Uses  TOPACT,
  99.       TOPACT1,
  100.  
  101.       TOPOVR,
  102.       TOPOVR2,
  103.       TOPOVR3,
  104.       TOPOVR4;
  105.  
  106.  
  107. {$I TOPFILE}
  108. {$I TOPFRX}
  109. {$I TOPFTX}
  110. {$I TOP7PL}
  111. {$I TOPBUF}
  112. {$I TOPDIR}
  113. {$I TOPCOPY}
  114.  
  115.  
  116. End.
  117.